home *** CD-ROM | disk | FTP | other *** search
/ Macintosh Animation Showcase / Macintosh Animation Showcase CD-ROM.iso / INTERVIEW / q12 / q12 / card_6649.txt < prev    next >
Encoding:
Text File  |  1988-09-12  |  7.3 KB  |  323 lines
  1. -- card: 6649 from stack: in
  2. -- bmap block id: 6208
  3. -- flags: 0000
  4. -- background id: 5170
  5. -- name: bill12.1
  6.  
  7.  
  8. -- part 11 (button)
  9. -- low flags: 80
  10. -- high flags: 8003
  11. -- rect: left=0 top=0 right=22 bottom=168
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: IDEA q12
  20. ----- HyperTalk script -----
  21. on PlayEvent
  22.   -- 8/8/88 12:14 AM compiled by Margo Riedel
  23.  
  24.   global StartTime, SndPrefix, SndMax, NextSnd
  25.   global currEventID, currStack, currButton
  26.  
  27.   put the short id of this card into currEventID
  28.   put the short name of this stack into currstack
  29.   put the short name of me into currButton
  30.  
  31.   put ticks() into StartTime
  32.  
  33.   put "bill12" into SndPrefix
  34.   put 8 into SndMax
  35.  
  36.   play "bill12.1"
  37.   play "bill12.2"
  38.   put 3 into NextSnd
  39.  
  40.   if (NextSnd < 0) or (mouseclick()) then
  41.     set cursor to 4
  42.     play stop
  43.     go card id 8368 of stack "Interview Control"
  44.     exit PlayEvent
  45.   end if
  46.  
  47.   waitfor(1.4)
  48.   visual dissolve fast
  49.   go card id 3943           -- card "bill12.2"
  50.   if (NextSnd < 0) or (mouseclick()) then
  51.     set cursor to 4
  52.     play stop
  53.     go card id 8368 of stack "Interview Control"
  54.     exit PlayEvent
  55.   end if
  56.  
  57.   waitfor(5.6)
  58.   visual dissolve fast
  59.   go card id 8823           -- card "bill12.3"
  60.   if (NextSnd < 0) or (mouseclick()) then
  61.     set cursor to 4
  62.     play stop
  63.     go card id 8368 of stack "Interview Control"
  64.     exit PlayEvent
  65.   end if
  66.  
  67.   waitfor(10.8)
  68.   visual dissolve fast
  69.   go card id 5786           -- card "bill12.4"
  70.   if (NextSnd < 0) or (mouseclick()) then
  71.     set cursor to 4
  72.     play stop
  73.     go card id 8368 of stack "Interview Control"
  74.     exit PlayEvent
  75.   end if
  76.  
  77.   waitfor(18.1)
  78.   visual dissolve fast
  79.   go card id 5386           -- card "bill12.5"
  80.   if (NextSnd < 0) or (mouseclick()) then
  81.     set cursor to 4
  82.     play stop
  83.     go card id 8368 of stack "Interview Control"
  84.     exit PlayEvent
  85.   end if
  86.  
  87.   waitfor(21.5)
  88.   visual dissolve fast
  89.   go card id 2523           -- card "bill12.6"
  90.   if (NextSnd < 0) or (mouseclick()) then
  91.     set cursor to 4
  92.     play stop
  93.     go card id 8368 of stack "Interview Control"
  94.     exit PlayEvent
  95.   end if
  96.  
  97.   waitfor(25.5)
  98.   visual dissolve fast
  99.   go card id 9517           -- card "bill12.7"
  100.   if (NextSnd < 0) or (mouseclick()) then
  101.     set cursor to 4
  102.     play stop
  103.     go card id 8368 of stack "Interview Control"
  104.     exit PlayEvent
  105.   end if
  106.  
  107.   waitfor(29.3)
  108.   visual dissolve fast
  109.   go card id 2256           -- card "bill12.8"
  110.   if (NextSnd < 0) or (mouseclick()) then
  111.     set cursor to 4
  112.     play stop
  113.     go card id 8368 of stack "Interview Control"
  114.     exit PlayEvent
  115.   end if
  116.  
  117.   waitfor(33.1)
  118.   visual dissolve fast
  119.   go card id 3643           -- card "bill12.9"
  120.   if (NextSnd < 0) or (mouseclick()) then
  121.     set cursor to 4
  122.     play stop
  123.     go card id 8368 of stack "Interview Control"
  124.     exit PlayEvent
  125.   end if
  126.  
  127.   waitfor(35.5)
  128.   visual dissolve fast
  129.   go card id 7668           -- card "bill12.10"
  130.   if (NextSnd < 0) or (mouseclick()) then
  131.     set cursor to 4
  132.     play stop
  133.     go card id 8368 of stack "Interview Control"
  134.     exit PlayEvent
  135.   end if
  136.  
  137.   waitfor(39.6)
  138.   visual dissolve fast
  139.   go card id 11420           -- card "bill12.11"
  140.   if (NextSnd < 0) or (mouseclick()) then
  141.     set cursor to 4
  142.     play stop
  143.     go card id 8368 of stack "Interview Control"
  144.     exit PlayEvent
  145.   end if
  146.  
  147.   repeat while (NextSnd <= SndMax)
  148.     DoNextSound
  149.   end repeat
  150.  
  151.   repeat while (sound() ‚↠"done")
  152.     if (NextSnd < 0) or (mouseclick()) then
  153.       set cursor to 4
  154.       play stop
  155.       go card id 8368 of stack "Interview Control"
  156.       exit PlayEvent
  157.     end if
  158.   end repeat
  159.  
  160.   put empty into currEventID
  161.   go card id 12723 of stack "Interview Control"
  162. end PlayEvent
  163.  
  164.  
  165.  
  166. -- part 12 (button)
  167. -- low flags: 80
  168. -- high flags: 8003
  169. -- rect: left=170 top=0 right=22 bottom=338
  170. -- title width / last selected line: 0
  171. -- icon id / first selected line: 0 / 0
  172. -- text alignment: 1
  173. -- font id: 0
  174. -- text size: 12
  175. -- style flags: 0
  176. -- line height: 16
  177. -- part name: PRES Interview
  178. ----- HyperTalk script -----
  179. on PlayEvent
  180.   -- 8/8/88 12:16 AM compiled by Margo Riedel
  181.  
  182.   global StartTime, SndPrefix, SndMax, NextSnd
  183.   global currEventID, currStack, currButton
  184.  
  185.   put the short id of this card into currEventID
  186.   put the short name of this stack into currstack
  187.   put the short name of me into currButton
  188.  
  189.   put ticks() into StartTime
  190.  
  191.   put "bill12" into SndPrefix
  192.   put 8 into SndMax
  193.  
  194.   play "bill12.1"
  195.   play "bill12.2"
  196.   put 3 into NextSnd
  197.  
  198.   if (NextSnd < 0) or (mouseclick()) then
  199.     set cursor to 4
  200.     play stop
  201.     go card id 8368 of stack "Interview Control"
  202.     exit PlayEvent
  203.   end if
  204.  
  205.   waitfor(1.4)
  206.   visual dissolve fast
  207.   go card id 3943           -- card "bill12.2"
  208.   if (NextSnd < 0) or (mouseclick()) then
  209.     set cursor to 4
  210.     play stop
  211.     go card id 8368 of stack "Interview Control"
  212.     exit PlayEvent
  213.   end if
  214.  
  215.   waitfor(5.6)
  216.   visual dissolve fast
  217.   go card id 8823           -- card "bill12.3"
  218.   if (NextSnd < 0) or (mouseclick()) then
  219.     set cursor to 4
  220.     play stop
  221.     go card id 8368 of stack "Interview Control"
  222.     exit PlayEvent
  223.   end if
  224.  
  225.   waitfor(10.8)
  226.   visual dissolve fast
  227.   go card id 5786           -- card "bill12.4"
  228.   if (NextSnd < 0) or (mouseclick()) then
  229.     set cursor to 4
  230.     play stop
  231.     go card id 8368 of stack "Interview Control"
  232.     exit PlayEvent
  233.   end if
  234.  
  235.   waitfor(18.1)
  236.   visual dissolve fast
  237.   go card id 5386           -- card "bill12.5"
  238.   if (NextSnd < 0) or (mouseclick()) then
  239.     set cursor to 4
  240.     play stop
  241.     go card id 8368 of stack "Interview Control"
  242.     exit PlayEvent
  243.   end if
  244.  
  245.   waitfor(21.5)
  246.   visual dissolve fast
  247.   go card id 2523           -- card "bill12.6"
  248.   if (NextSnd < 0) or (mouseclick()) then
  249.     set cursor to 4
  250.     play stop
  251.     go card id 8368 of stack "Interview Control"
  252.     exit PlayEvent
  253.   end if
  254.  
  255.   waitfor(25.5)
  256.   visual dissolve fast
  257.   go card id 9517           -- card "bill12.7"
  258.   if (NextSnd < 0) or (mouseclick()) then
  259.     set cursor to 4
  260.     play stop
  261.     go card id 8368 of stack "Interview Control"
  262.     exit PlayEvent
  263.   end if
  264.  
  265.   waitfor(29.3)
  266.   visual dissolve fast
  267.   go card id 2256           -- card "bill12.8"
  268.   if (NextSnd < 0) or (mouseclick()) then
  269.     set cursor to 4
  270.     play stop
  271.     go card id 8368 of stack "Interview Control"
  272.     exit PlayEvent
  273.   end if
  274.  
  275.   waitfor(33.1)
  276.   visual dissolve fast
  277.   go card id 3643           -- card "bill12.9"
  278.   if (NextSnd < 0) or (mouseclick()) then
  279.     set cursor to 4
  280.     play stop
  281.     go card id 8368 of stack "Interview Control"
  282.     exit PlayEvent
  283.   end if
  284.  
  285.   waitfor(35.5)
  286.   visual dissolve fast
  287.   go card id 7668           -- card "bill12.10"
  288.   if (NextSnd < 0) or (mouseclick()) then
  289.     set cursor to 4
  290.     play stop
  291.     go card id 8368 of stack "Interview Control"
  292.     exit PlayEvent
  293.   end if
  294.  
  295.   waitfor(39.6)
  296.   visual dissolve fast
  297.   go card id 11420           -- card "bill12.11"
  298.   if (NextSnd < 0) or (mouseclick()) then
  299.     set cursor to 4
  300.     play stop
  301.     go card id 8368 of stack "Interview Control"
  302.     exit PlayEvent
  303.   end if
  304.  
  305.   repeat while (NextSnd <= SndMax)
  306.     DoNextSound
  307.   end repeat
  308.  
  309.   repeat while (sound() ‚↠"done")
  310.     if (NextSnd < 0) or (mouseclick()) then
  311.       set cursor to 4
  312.       play stop
  313.       go card id 8368 of stack "Interview Control"
  314.       exit PlayEvent
  315.     end if
  316.   end repeat
  317.  
  318.   go card id 3036 of stack "q13"
  319.  
  320.  
  321. end PlayEvent
  322.  
  323.